home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Super CD
/
Super CD.iso
/
geomitri
/
fcad
/
macros.scr
< prev
next >
Wrap
Text File
|
1987-09-14
|
832b
|
46 lines
ECOFF;
MACRO Boundary;
ECOFF;SNAPOFF;ORTHOFF;
GP OnCirc ^A Select circle: ;
IFER Abort;
GP L DEG 210 OnCirc;
GP R DEG 30 OnCirc;
NextLine:;
GP Pt ^A Select line: ;
IFER Abort;
TRIM Pt INT Pt L;
TRIM Pt INT Pt R;
GO NextLine;
Abort: ECON ^C;
ENDM;
MACRO Divide;
ECOFF;
GP PickPt ^A Select entity: ;IFER Done;
GN Seg ^A Number of segments? ;IFER Done;
IFLE Seg 1 Done;
GV Pct 0;
CalcTick;
CALC Spc = 100 / Seg;;
CALC Seg = Seg - 1;;
Loop:;
CALC Pct = Pct + Spc;;
GP InsPt % Pct PickPt;
LINE REF InsPt ToStart EndPt;;
CALC Seg = Seg - 1;;
IFGT Seg 0 Loop;
Done: ECON ^C;
ENDM;
MACRO CalcTick;
SBANG Angle % 0 PickPt % 100 PickPt;
SDIST Len % 0 PickPt % 100 PickPt;
CALC Len = Len / 20;;
CALC Angle = Angle + 90;;
SET ToStart = < Angle , Len / 2;;
SET EndPt = ~ 180 , Len;;
ENDM;
ECON;